home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / PROCED5.MOD < prev    next >
Text File  |  1989-01-18  |  731b  |  51 lines
  1.                                          (* Chapter 5 - Program 5 *)
  2. MODULE Proced5;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6. PROCEDURE One;
  7. BEGIN
  8.    WriteString("This is procedure One.");
  9.    WriteLn;
  10. END One;
  11.  
  12. PROCEDURE Two;
  13. BEGIN
  14.    One;
  15.    WriteString("This is procedure Two.");
  16.    WriteLn;
  17. END Two;
  18.  
  19. PROCEDURE Three;
  20. BEGIN
  21.    Two;
  22.    WriteString("This is procedure Three.");
  23.    WriteLn;
  24. END Three;
  25.  
  26. BEGIN   (* Main program *)
  27.    One;
  28.    WriteLn;
  29.    Two;
  30.    WriteLn;
  31.    Three;
  32.    WriteLn;
  33. END Proced5.
  34.  
  35.  
  36.  
  37.  
  38. (* Result of execution
  39.  
  40. This is procedure One.
  41.  
  42. This is procedure One.
  43. This is procedure Two.
  44.  
  45. This is procedure One.
  46. This is procedure Two.
  47. This is procedure Three.
  48.  
  49. *)
  50.  
  51.